home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
GETDTA.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
298b
|
19 lines
program GetDTASample;
uses crt, DMT;
var
DTAseg,
DTAofs : word;
begin
Color( 7, 0 );
clrscr;
GetDTA( DTAseg, DTAOfs ); { Call GetDTA procedure }
writeln;
writeln( 'Current DTA address : ', WrdToHex( DTAseg ), ':', WrdToHex( DTAofs ) );
GetEnter;
end.